home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / NewInstaller15.lha / NewInstaller1_5 / Tools / SetDefaultTheme < prev   
Encoding:
Text File  |  1999-12-01  |  968 b   |  28 lines
  1. ;
  2. ; SetDefaultTheme v1.0 - Done by Andreas Falkenhahn in a hurry
  3. ;
  4. ; I was too lazy too merge this in a 'real' program
  5. ;
  6.  
  7. requestchoice >env:selection title "SetDefaultTheme" body "This tool allows you to select a theme to use as default!" gadgets "Continue|Cancel"
  8.  
  9. if $selection eq 0
  10. else
  11.   requestchoice >env:selection title "SetDefaultTheme" body "Select the theme now, you want to use as default!" gadgets "OK"
  12.   requestfile >env:selection1 title "Select theme" drawer "S:NewInstaller/Themes" drawersonly
  13.   requestchoice >env:selection title "SetDefaultTheme" body "Are you sure to install that theme? Your old theme will be deleted!" gadgets "Yes|No"
  14.  
  15.   if $selection eq 0
  16.   else
  17.     delete >nil: S:NewInstaller/Defaults/#?
  18.     copy >nil: $selection1 S:NewInstaller/Defaults/
  19.     requestchoice >env:selection title "SetDefaultTheme" body "Theme installed successfully!" gadgets "OK"
  20.   endif
  21.  
  22.   delete >nil: env:Selection1
  23.  
  24. endif
  25.  
  26. delete >nil: env:selection
  27. quit
  28.